home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Over 1,000 Windows 95 Programs
/
Over 1000 Windows 95 Programs (Microforum) (Disc 1).iso
/
1306
/
ptw32.zip
/
DDE.PSL
< prev
next >
Wrap
Text File
|
1994-09-11
|
646b
|
25 lines
#
# a DDE client example.
#
# Assigns three numbers on the emulation screen to array "cel"
for {i = 1} {$i < 4} {incr i} {
row = [expr $i + 3]
cel($i) = [screen-rect $row 10 $row 15]
}
# Initiates a DDE conversation with MicroSoft Excel file TEST.XLS.
conv = [dde initiate EXCEL TEST.XLS]
# Pokes the three numbers to three cels in TEST.XLS.
for {i = 1} {$i < 4} {incr i} {dde poke $conv R1C$i $cel($i)}
# Requests the sum of those numbers from a result cel in TEST.XLS.
sum = [dde request $conv "R2C1"]
# Terminates the DDE conversation.
dde terminate $conv
# Sends the result to the host application.
send $sum